home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 206
/
206.d81
/
b.sea to sea
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
56 lines
1 dv=peek(186):ifdv<8thendv=8
4 poke180,0:ifpeek(56)=34thenpoke180,1
5 poke198,0:goto10
6 poke198,1:poke631,asc("n")
10 print"":poke53280,0:poke53281,0
12 ifpeek(56)=56then20
14 ifpeek(56)<>55thengosub2000
15 ifpeek(56)<>55thenpoke56,55:clr:gosub2001
20 poke53265,peek(53265)and239:poke53272,30
1000 print"[147]"
1001 a$=" [129]\@@@[129]\@@@[129]\@@@ [129]\@@@[129]\@@@ [129]\@@@[129]\@@@[129]\@@@
1002 b$[178]" for@@for@[@@for@[@@for^@ for^^@for[@@for^@ for@@for@[@@for@[@@for^@
1003 c$=" [129]@@@@[129]@@@ [129]@@@@ [129]@@ [129]@@[129]@@ [129]@@@@[129]@@@ [129]@@@@
1004 d$[178]" for^@^@for@@for[ @@for@@ for@@ for@@for@@ for^@^@for@@for[ @@for@@
1005 e$=" [129]\@@@[129]@@@@[129]@@[129]@@ [129]@@ [129]@@@@ [129]\@@@[129]@@@@[129]@@[129]@@
1006 f$[178]" for^@@[^@@[^[^[ ^[ ^@@[ ^@@[^@@[^[^["
1007 dv[178][194](186):[139]dv[179]8[167]dv[178]8
1008 [137]50000
2000 [158]57812"c2c.mus",dv,0:[151]780,0:[151]781,0:[151]782,87:[158]65493:[142]
2001 dv[178][194](186):[139]dv[179]8[167]dv[178]8
2002 [158]57812"c2c.fnt",dv,0:[151]780,0:[151]781,0:[151]782,56:[158]65493:[142]
50000 [153]:[153]: [153]a$:[153]b$:[153]c$:[153]d$:[153]e$:[153]f$
50001 [153]:[153]"sys (NULL)he (NULL)(NULL)atn(NULL)(NULL)len(NULL)(NULL)(NULL)right$(NULL)val(NULL)(NULL)atn(NULL) (NULL)atnright$(NULL)(NULL)(NULL)atnstr$ chr$ame
50002 print:print"[154] for the [195][207][205][205][207][196][207][210][197] 64
50003 [153]:[153]" open by str$avid (NULL). (NULL)oorman
50004 sys22427
51000 poke53265,peek(53265)or16
51001 ifpeek(180)=1then59000
51005 print:print:print:print" [196]o [217]ou [215]ant [201]nstructions ([217]/[206]) "
51999 getz$:ifz$=""then51999
52000 poke23351,4:forx=1to20:next
52001 ifz$="y"then52020
52002 ifpeek(56)<>56then52010
52003 print"[145] "
52004 print"[144][145][145][145][145]load"chr$(34)"c2c.bt2"chr$(34)","dv
52005 goto52012
52010 print"[145] [156] [204]oading [205]odules..... "
52011 print"[144][145][145][145][145]load"chr$(34)"c2c.bt1"chr$(34)","dv
52012 print"run[145][145][145][145][145][145][145][145]"
52019 forx=0to1:poke631+x,13:next:poke198,x:end
52020 print"[145] [204]oading [201]nstructions "
52030 sys57812"c2c.drd",dv,0:poke780,0:poke781,0:poke782,192:sys65493
52040 print"[159]";
52050 sys49152"c2c.doc",dv,0
52060 run1000
59000 poke180,0:print:print:print:print" <[208]>lay [193]gain or <[209]>uit?"
59010 getz$:ifz$=""then59010
59020 ifz$="p"thenpoke23351,4:run20
59021 goto61000
60000 open15,8,15,"s0:sea to sea":close15:save"sea to sea",8:end
61000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen61020
61010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then61030
61020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
61030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
61040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end